object Form1: TForm1
  Left = 0
  Top = 0
  Margins.Left = 5
  Margins.Top = 5
  Margins.Right = 5
  Margins.Bottom = 5
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Circles'
  ClientHeight = 621
  ClientWidth = 1012
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 168
  TextHeight = 23
  object Label1: TLabel
    Left = 630
    Top = 14
    Width = 102
    Height = 23
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Caption = 'Segments : '
  end
  object Label2: TLabel
    Left = 630
    Top = 98
    Width = 68
    Height = 23
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Caption = 'Width : '
  end
  object Label3: TLabel
    Left = 630
    Top = 168
    Width = 74
    Height = 23
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Caption = 'Height : '
  end
  object Label4: TLabel
    Left = 630
    Top = 238
    Width = 88
    Height = 23
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Caption = 'Rotation : '
  end
  object GLSceneViewer1: TGLSceneViewer
    Left = 14
    Top = 14
    Width = 589
    Height = 547
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Camera = Camera
    Buffer.BackgroundColor = clBlack
    FieldOfView = 159.279708862304700000
    PenAsTouch = False
    TabOrder = 0
  end
  object sbSegments: TScrollBar
    Left = 630
    Top = 47
    Width = 324
    Height = 28
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Max = 64
    Min = 3
    PageSize = 0
    Position = 32
    TabOrder = 1
    OnChange = sbCircleChange
  end
  object sbWidth: TScrollBar
    Left = 630
    Top = 126
    Width = 324
    Height = 28
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Max = 150
    PageSize = 0
    Position = 90
    TabOrder = 2
    OnChange = sbCircleChange
  end
  object sbHeight: TScrollBar
    Left = 630
    Top = 196
    Width = 324
    Height = 28
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Max = 150
    PageSize = 0
    Position = 90
    TabOrder = 3
    OnChange = sbCircleChange
  end
  object ScrollBar4: TScrollBar
    Left = 630
    Top = 266
    Width = 324
    Height = 28
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Max = 360
    PageSize = 0
    TabOrder = 4
    OnChange = sbCircleChange
  end
  object chbSpline: TCheckBox
    Left = 630
    Top = 308
    Width = 170
    Height = 30
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Caption = 'Cubic spline'
    TabOrder = 5
    OnClick = chbSplineClick
  end
  object chbNodes: TCheckBox
    Left = 630
    Top = 364
    Width = 170
    Height = 29
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Caption = 'Nodes'
    TabOrder = 6
    OnClick = chbNodesClick
  end
  object chbDash: TCheckBox
    Left = 630
    Top = 420
    Width = 170
    Height = 29
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Caption = 'Dash line'
    Checked = True
    State = cbChecked
    TabOrder = 7
    OnClick = chbDashClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 588
    Width = 1012
    Height = 33
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Panels = <>
  end
  object GLScene1: TGLScene
    Left = 16
    Top = 16
    object Camera: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = dcMeridian
      Position.Coordinates = {000000C000000040000000C00000803F}
      object LightSource: TGLLightSource
        ConstAttenuation = 1.000000000000000000
        Position.Coordinates = {000000410000E0400000C0400000803F}
        SpotCutOff = 180.000000000000000000
      end
    end
    object Sphere: TGLSphere
      Radius = 0.500000000000000000
    end
    object dcMeridian: TGLDummyCube
      CubeSize = 0.400000005960464500
      VisibleAtRunTime = True
      object Meridian: TGLLines
        LineColor.Color = {0000803F0000803E000000000000803F}
        LineWidth = 1.500000000000000000
        Nodes = <>
        NodesAspect = lnaInvisible
        NodeSize = 0.500000000000000000
        Options = []
      end
    end
    object dcParallel: TGLDummyCube
      Direction.Coordinates = {00000000F8724C320000803F00000000}
      Up.Coordinates = {000000000000803FF8724CB200000000}
      CubeSize = 1.000000000000000000
      object Parallel: TGLLines
        LineWidth = 1.500000000000000000
        Nodes = <>
        NodesAspect = lnaInvisible
        NodeSize = 0.500000000000000000
        Options = []
      end
    end
    object dcGeogrid: TGLDummyCube
      CubeSize = 1.000000000000000000
      object Merid1: TGLLines
        LineWidth = 1.500000000000000000
        Nodes = <>
        NodesAspect = lnaInvisible
        NodeSize = 0.500000000000000000
        SplineMode = lsmSegments
        Options = []
      end
      object Paral1: TGLLines
        LineWidth = 1.500000000000000000
        Nodes = <>
        NodesAspect = lnaInvisible
        NodeSize = 0.500000000000000000
        SplineMode = lsmSegments
        Options = []
      end
    end
  end
  object GLSimpleNavigation1: TGLSimpleNavigation
    Form = Owner
    GLSceneViewer = GLSceneViewer1
    FormCaption = 'GLScene Circle - %FPS'
    KeyCombinations = <
      item
        ShiftState = [ssLeft, ssRight]
        Action = snaZoom
      end
      item
        ShiftState = [ssLeft]
        Action = snaMoveAroundTarget
      end
      item
        ShiftState = [ssRight]
        Action = snaMoveAroundTarget
      end>
    Left = 88
    Top = 24
  end
end
